home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 92 / Digital_Talk_92_2011-07_Digital_Talk_de_Side_B.d64 / teles wohnung (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  1KB  |  48 lines
  1. 10 poke53280,0:poke53281,0
  2. 11 gosub200
  3. 20 print"[147]telespielators wohnung"
  4. 30 print:print:printtab(10)"(ein textadventure)"
  5. 40 print:print:print:print:print:print:print:printtab(3)"inferior (mai 2011)"
  6. 45 print:print:print:printtab(3)"http://www.inferior-c64.de.vu"
  7. 50 fora=1to3000:nexta
  8. 55 print:print:print:print:print:print"                                        ":print:print:print:print:print:print:print:print:print:print:print
  9. 56 print:print:print:print:print:print:print:print:print:print:print:print:print
  10. 60 print"[147]"
  11. 70 print"du stehst in telespielators wohnung"
  12. 80 print"es ist zappenduster"
  13. 90 print:print"welche richtung[160](n/o/s/w)?"
  14. 100 geta$:ifa$<>"n"anda$<>"s"anda$<>"o"anda$<>"w"thengoto100
  15. 105 print:print:print
  16. 110 print"du bist gegen einen stapel"
  17. 120 print"bananenkartons gelaufen."
  18. 130 print"er fiel um und erschlug dich!"
  19. 140 ifa$="n"thenprint"darin waren videokassetten."
  20. 150 ifa$="o"thenprint"darin waren alte computer."
  21. 160 ifa$="s"thenprint"darin waren alte spielkonsolen."
  22. 170 ifa$="w"thenprint"darin waren dicke buecher."
  23. 180 print:print"nochmal(j/n)?"
  24. 182 getb$:ifb$=""thengoto182
  25. 184 ifb$<>"j"then end
  26. 190 goto10
  27. 200 print"[147]"
  28. 210 printtab(6)"[169][180] [146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  29. 220 printtab(6)"[155] [180]   [223] [175][175] [175][175] [185]   [185]  [185] "
  30. 230 printtab(6)"[152] [180]  [194]  [162][162] [195][195] [162][183]  [183]  [185][183]"
  31. 240 printtab(6)"[151][223][180] [146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  32. 250 printtab(11)"software  international":print""
  33. 260 forw=1to1000:nextw
  34. 275 forw=1to500:nextw
  35. 310 fortba=16to2step-1
  36. 320 printtab(tba)"if you don't like it - [145]"
  37. 330 nexttba
  38. 333 print
  39. 340 fortbb=1to24
  40. 350 printtab(tbb)" we don't care![145]"
  41. 360 nexttbb
  42. 370 print"                                        "
  43. 380 print"[145][145][145]we don't care!"
  44. 390 forw=1to2000:nextw
  45. 392 print"[154] vielen dank an x1541 [154]fuer den hinweis   auf den befehl 'old'! [158]:)
  46. 393 [129]w[178]1[164]3000:[130]w
  47. 400 [142]
  48.